home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / perl / sun4.md / stdarg.ph < prev    next >
Encoding:
Text File  |  1991-08-15  |  712 b   |  24 lines
  1. if (!defined &_STDARG_H) {
  2.     eval 'sub _STDARG_H {1;}';
  3.     if (!defined &_VA_LIST) {
  4.     eval 'sub _VA_LIST {1;}';
  5.     }
  6.     eval 'sub __va_rounded_size {
  7.         local($TYPE) = @_;
  8.         eval "((($sizeof{$TYPE} + $sizeof{\'int\'} - 1) / $sizeof{\'int\'}) * $sizeof{\'int\'})";
  9.     }';
  10.     eval 'sub va_start {
  11.         local($AP, $lastarg) = @_;
  12.         eval "( &__builtin_saveregs(), ($AP) = ((\'char\' *)&$lastarg +  &__va_rounded_size($lastarg)))";
  13.     }';
  14.     eval 'sub va_arg {
  15.         local($AP, $TYPE) = @_;
  16.         eval "(($AP) +=  &__va_rounded_size ($TYPE), *(($TYPE *) (($AP) -  &__va_rounded_size ($TYPE))))";
  17.     }';
  18.     eval 'sub va_end {
  19.         local($list) = @_;
  20.         eval "";
  21.     }';
  22. }
  23. 1;
  24.